000200 IDENTIFICATION DIVISION.
000300 PROGRAM-ID. SAMPLE01.
000400 ENVIRONMENT DIVISION.
000500 CONFIGURATION SECTION.
000600 DATA DIVISION.
000700 WORKING-STORAGE SECTION.
000800 LINKAGE SECTION.
000900 01  A PIC 99.
001000 01  B PIC 99.
001100 01  RES PIC 99.
001200 PROCEDURE DIVISION USING A B RES.
001300     IF A > B THEN
001400        MOVE 1 TO RES
001500     ELSE
001600*       IF A=B THEN
001700*          MOVE 2 TO RES
001800*       ELSE
001900           MOVE 0 TO RES
002000*       END-IF
002100     END-IF.
002110     GOBACK.
